home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / Conv2META.AmiCAD < prev    next >
Text File  |  2000-04-13  |  4KB  |  145 lines
  1. /* Conversion du fichier courant sous le format META puis
  2. conversion à l'aide du format spécifié à l'aide de MetaView.
  3. Version 1.00: 18 février 1998, Chez Corbin
  4. Version 1.01: 21 février 1999, modif appel REQFILE
  5. Version 1.02: 13 avril 2000, modif gestion LOCK, UNLOCK
  6. $VER: Conv2META 1.02 (© R.Florac, 13/04/00) */
  7.  
  8. METAVIEW = 'DP:Système/MetaView/MetaView'
  9.  
  10. options results
  11.  
  12. SIGNAL ON FAILURE
  13. signal on error
  14. signal on syntax
  15.  
  16. APLPORT = ADDRESS()
  17.  
  18. 'SAVE("RAM:AmiCAD.FILE")'
  19. fichier="RAM:AmiCAD.META"
  20.  
  21. 'LOCK:TITLE("Conversion au format META en cours...")'
  22. arguments=" RAM:AmiCAD.FILE TO "||'"'||fichier||'"'||" FORCE QUIET LIBS=Travail:AmiCAD/Bibliothèques"
  23. address command
  24. 'run Travail:AmiCAD/AmiCAD2META' arguments
  25.  
  26. do NUMBER = 0 to 20
  27.     if (SHOW(PORTS,"METAVIEW." || NUMBER) = 0) then
  28.     leave
  29. end
  30.  
  31. /*
  32. ** Searching for MetaView: 1. our path above,
  33. **    2. path in env:MetaView.path
  34. ** or 3. you must have a assign "MetaView:"
  35. */
  36.  
  37. if (EXISTS(METAVIEW)=0) then do
  38.     if OPEN("MVVAR","env:MetaView.path","Read") then do
  39.     METAVIEW = READLN("MVVAR")
  40.     end
  41.     if (EXISTS(METAVIEW)=0) then do
  42.     METAVIEW = "MetaView:MetaView"
  43.     end
  44. end
  45.  
  46. /*
  47. ** Enable warnings for WaitForPort
  48. */
  49.  
  50. OPTIONS FAILAT 5
  51. ADDRESS COMMAND
  52.     "run " || METAVIEW || " NODISPLAY"
  53.     MVPORT = "METAVIEW." || NUMBER
  54.     "WaitForPort " || MVPORT
  55.  
  56. OPTIONS FAILAT 21
  57.  
  58. ADDRESS(APLPORT)
  59.  
  60. titre='"Format sauvegarde"+CHR(10)+"AMF (Amiga MetaFile)"+CHR(10)+"WMF (Windows MetaFile)"+CHR(10)+"DR2D (Drawing 2D)"+CHR(10)+"CGM (ComputerGraphicMetafile)"+CHR(10)+"GEM"+CHR(10)+"EPS (Encapsulated PostScript)"+CHR(10)+"AI (Adobe Illustrator)"+CHR(10)'
  61. titre=titre||'+"HPGL (Hewlett-Packard Graphics Language)"+CHR(10)+"ILBM (InterLeaved BitMap)"+CHR(10)+"JMF (Java MetaFile)"+CHR(10)+"FIG"+CHR(10)+"META"+CHR(10)'
  62. 'TITLE(""):SELECT('titre')'
  63. CHOICE = result
  64. if result>0 then do
  65.     extension.1 = "AMF"
  66.     extension.2 = "WMF"
  67.     extension.3 = "DR2D"
  68.     extension.4 = "CGM"
  69.     extension.5 = "GEM"
  70.     extension.6 = "EPS"
  71.     extension.7 = "AI"
  72.     extension.8 = "HPGL"
  73.     extension.9 = "ILBM"
  74.     extension.10= "JMF"
  75.     extension.11= "FIG"
  76.     extension.12= "META"
  77.     'REQFILE("Fichier 'extension.CHOICE' destination?","RAM:", FILEPART("")+".'extension.CHOICE'")'
  78.     FILENAME=result
  79.     if FILENAME~="" then do
  80.     if POS(extension.CHOICE,FILENAME)=0 then FILENAME=FILENAME||"."||extension.CHOICE
  81.     FILENAME='"'||FILENAME||'"'
  82.  
  83.     ADDRESS VALUE MVPORT
  84.     LOAD fichier
  85.     select
  86.         when CHOICE = 1 then do
  87.         SAVE FILENAME AS AMF
  88.         end
  89.         when CHOICE = 2 then do
  90.         SAVE FILENAME AS WMF
  91.         end
  92.         when CHOICE = 3 then do
  93.         SAVE FILENAME AS DR2D
  94.         end
  95.         when CHOICE = 4 then do
  96.         SAVE FILENAME AS CGM
  97.         end
  98.         when CHOICE = 5 then do
  99.         SAVE FILENAME AS GEM
  100.         end
  101.         when CHOICE = 6 then do
  102.         SAVE FILENAME AS EPS
  103.         end
  104.         when CHOICE = 7 then do
  105.         SAVE FILENAME AS AI
  106.         end
  107.         when CHOICE = 8 then do
  108.         SAVE FILENAME AS HPGL
  109.         end
  110.         when CHOICE = 9 then do
  111.         SAVE FILENAME AS ILBM
  112.         end
  113.         when CHOICE = 10 then do
  114.         SAVE FILENAME AS JMF
  115.         end
  116.         when CHOICE = 11 then do
  117.         SAVE FILENAME AS FIG
  118.         end
  119.         otherwise do
  120.         ADDRESS COMMAND
  121.         'c:copy' " RAM:AmiCAD.META TO "||FILENAME
  122.         end
  123.     end
  124.     end
  125. end
  126. fin:
  127. ADDRESS COMMAND
  128. 'c:delete' " RAM:AmiCAD.FILE RAM:AmiCAD.META QUIET"
  129. ADDRESS(APLPORT)
  130. 'UNLOCK:TITLE("")'
  131. EXIT
  132.  
  133. /* Traitement des erreurs, interruption du programme */
  134. FAILURE:
  135. syntax:
  136. erreur=RC
  137. ADDRESS(APLPORT)
  138. 'MESSAGE("Script Conv2META"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'"):UNLOCK'
  139. exit
  140.  
  141. error:
  142. ADDRESS(APLPORT)
  143. 'MESSAGE("Script Conv2META"+CHR(10)+"Erreur en ligne 'SIGL'"):UNLOCK'
  144. exit
  145.